﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities
Partial Class modificarproyecto
    Inherits System.Web.UI.Page
    Dim str_error As String
    Dim str_mensaje As String
    Public Shared str_modo As String
    Public Shared str_cliente As String
    Dim capanegocios As New ProyectoBL


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CargarProyectos()
    End Sub

    Sub CargarProyectos()
        'Instanciamos a la clase ClienteBL
        capanegocios = New ProyectoBL

        Try
            'Establece el origen de datos del gridview
            gvdatos.DataSource = capanegocios.ListarProyectos
            'El campo oculto
            '"Pega" los datos al gridview
            gvdatos.DataBind()

        Catch ex As Exception
            str_error = capanegocios.CapturaError
            'Mandamos el error a la página de errores
            Response.Redirect("Errores.aspx?par=" & str_error)
        Finally
            'Liberamos recursos
            capanegocios = Nothing
        End Try
    End Sub

    Sub Editar(ByVal src As Object, ByVal args As CommandEventArgs)

        Dim str_modo As String = "E"
        Dim str_cliente As String = args.CommandName

        'Mandamos dos parámetros: modo de edición y el cliente a editar
        Response.Redirect("Actualiza_Proyecto.aspx?modo=" & str_modo & _
                           "&cliente=" & str_cliente)

    End Sub


    Sub Eliminar(ByVal src As Object, ByVal args As CommandEventArgs)

        Dim str_Proyecto As String
        str_Proyecto = args.CommandName
        Dim capanegocios As New ProyectoBL
        Dim objeto As New BE.ProyectoDTO


        Try
            'Llenamos la propiedad que nos interesa 
            objeto.CodigoProyecto = str_Proyecto

            If capanegocios.EliminarProyecto(objeto) = True Then
                str_mensaje = "Se eliminó al Proyecto"

                'Mostramos el resultado en una ventana emergente 
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & str_mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                'Volvemos a listar los datos
                CargarProyectos()
                'MsgBox("Exito")
            Else
                'MsgBox("Error")
                str_mensaje = "No se puede eliminar al Proyecto"
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & str_mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)
            End If

        Catch ex As Exception

            str_error = capanegocios.CapturaError

            Response.Redirect("Errores.aspx?id=" & str_error)
        Finally

            capanegocios = Nothing
            objeto = Nothing


        End Try


    End Sub

    'Sub VerPlan(ByVal src As Object, ByVal args As CommandEventArgs)

    '    Dim str_cliente As String = args.CommandName
    '    Dim capanegocios As New ProyectoBL

    '    Dim plan As String = capanegocios.getPlanProyecto(CType(str_cliente, Integer))
    '    Response.Redirect(plan)

    '    'str_mensaje = "Proyecto registrado con éxito"
    '    'Dim script As String = "<script language=Javascript>"
    '    'script += "window.open('Files_Proyectos\res%20ayuda.pdf', 'Plan de Proyecto', 'width=820,height=600,scrollbars=NO');"
    '    'script += "</script>"
    '    'Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

    '    'file:///D:\proyecto BI-MOINDU\Req_Rend24-06-11\desarrollo\Files_Proyectos\res%20ayuda.pdf
    'End Sub


    Sub mensaje(ByVal msg As String)

        Dim script As String = "<script language=Javascript>"
        script += "window.open('Files_Proyectos\res%20ayuda.pdf', 'Plan de Proyecto', 'width=820,height=600,scrollbars=NO');"
        script += "</script>"
        Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

    End Sub



    Protected Sub lnkNuevoProy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkNuevoProy.Click
        Response.Redirect("NuevoProyecto.aspx")
    End Sub
End Class
